; Music of Steel Eagle (1990) (Players) (Sonic Grafitti)
; Ripped by Megachur the 19/03/2009

	write "STEELEAG.BIN"

music_date_rip	equ &1339
music_adr	equ &ad60
first_theme	equ 0
last_theme	equ 3	; 0 -> 3

	read "music_header_v1_0.asm"

	jp lb889	; init music
	jp lb970	; play music
.lad68 equ $ + 2
.music_end equ $ + 1
.lad67 equ $ + 1
.lad66
	db #00,#01,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#ff,#00,#00,#00,#01
	db #00,#0c,#00,#0c,#00,#00,#18,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#0f,#08
	db #00,#ff,#0c,#14,#08,#ff,#18,#01
	db #03,#02,#03,#fe,#ff,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0f,#08,#00,#00,#0f,#00,#00
	db #fb,#ff,#00,#00,#03,#04,#24,#18
	db #12,#0c,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#78,#00
	db #00,#00,#00,#00,#0f,#0f,#00,#fe
	db #0d,#00,#00,#ff,#ff,#00,#00,#03
	db #06,#18,#14,#0c,#0c,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#e8,#00,#00,#00,#00,#00,#0f
	db #0a,#00,#ff,#0a,#00,#00,#fe,#ff
	db #00,#00,#00,#03,#f4,#f9,#fd,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#0f,#0a,#00,#ff,#0a,#00
	db #00,#fe,#ff,#00,#00,#00,#03,#f4
	db #f7,#fb,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#0f,#0a,#00
	db #ff,#0d,#14,#0a,#ff,#ff,#00,#00
	db #00,#01,#f4,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #0f,#0a,#00,#ff,#0a,#05,#02,#ff
	db #ff,#00,#00,#00,#03,#f4,#f9,#fc
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#0f,#0a,#00,#ff,#0a
	db #05,#02,#ff,#ff,#00,#00,#00,#03
	db #f4,#f7,#fb,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#0f,#0a
	db #00,#ff,#0a,#05,#02,#ff,#ff,#00
	db #00,#00,#03,#f4,#f8,#fb,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0f,#0a,#00,#ff,#0a,#05,#02
	db #ff,#ff,#00,#00,#00,#03,#f4,#f9
	db #fd,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0e,#0a,#00,#ff
	db #0c,#01,#00,#fe,#ff,#00,#00,#00
	db #03,#f4,#f4,#f4,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#0f,#04,#00,#ff,#0c,#01
	db #01,#ff,#ff,#00,#00,#01,#02,#0c
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#0f,#0a
	db #00,#ff,#0d,#14,#0a,#ff,#ff,#00
	db #00,#00,#01,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0f,#0f,#00,#fe
	db #0d,#00,#00,#ff,#ff,#00,#00,#03
	db #06,#18,#14,#0c,#0c,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#d8,#00,#00,#00,#00
.lb028 equ $ + 4
.lb026 equ $ + 2
.lb024
	dw lb072,lb093,lb0be,lb0e1
	dw lb0e8,lb0f3,lb0fe,lb105
	dw lb108,lb10b,lb114,lb118
.lb03c
	dw lb120,lb12f,lb150,lb1e9
	dw lb20c,lb22d,lb24e,lb279
	dw lb2a6,lb2ff,lb352,lb39f
	dw lb3e6,lb3fb,lb3fb,lb460
	dw lb460,lb4c5,lb4e0,lb4fb
	dw lb518,#0000,lb57f,lb602
	dw lb665,lb6ae,lb709
.lb072
	db #fc,#00,#fb,#0c,#05,#01,#03,#06
	db #0a,#01,#0b,#01,#03,#04,#0a,#01
	db #0b,#01,#0d,#01,#0f,#01,#11,#04
	db #0a,#01,#0b,#01,#11,#04,#00,#01
.lb093 equ $ + 1
	db #fe,#06,#01,#02,#06,#08,#01,#09
	db #01,#02,#04,#08,#01,#09,#01,#fa
	db #f4,#0e,#01,#10,#01,#fa,#0c,#f9
	db #01,#11,#03,#f9,#02,#02,#01,#f9
	db #01,#08,#01,#09,#01,#f9,#00,#13
.lb0be equ $ + 4
	db #04,#00,#01,#fe,#00,#06,#01,#01
	db #04,#01,#01,#01,#07,#01,#0c,#1c
	db #01,#01,#04,#01,#01,#01,#07,#01
	db #0c,#1c,#02,#06,#0c,#1c,#f9,#01
.lb0e1 equ $ + 7
	db #13,#04,#f9,#00,#00,#01,#fe,#fc
.lb0e8 equ $ + 6
	db #00,#fb,#18,#1a,#01,#ff,#f8,#06
	db #f9,#02,#1a,#01,#f8,#ff,#f9,#00
.lb0f3 equ $ + 1
	db #ff,#f8,#03,#f9,#03,#1a,#01,#f8
.lb0fe equ $ + 4
	db #00,#f9,#00,#ff,#fc,#00,#fb,#0c
.lb108 equ $ + 6
.lb105 equ $ + 3
	db #17,#01,#fe,#18,#01,#fe,#19,#01
.lb10b equ $ + 1
	db #fe,#fc,#00,#fb,#0c,#14,#01,#00
.lb118 equ $ + 6
.lb114 equ $ + 2
	db #01,#ff,#16,#01,#00,#02,#fa,#f4
.lb120 equ $ + 6
	db #14,#01,#fa,#0c,#00,#01,#61,#00
	db #25,#10,#60,#10,#60,#10,#60,#10
.lb12f equ $ + 5
	db #60,#10,#60,#10,#fe,#61,#06,#3f
	db #10,#60,#08,#3f,#09,#42,#09,#44
	db #06,#46,#0c,#44,#06,#42,#12,#46
	db #0c,#44,#12,#41,#12,#3d,#10,#60
.lb150 equ $ + 6
	db #10,#60,#10,#60,#0c,#fe,#61,#02
	db #19,#06,#61,#05,#4b,#03,#4b,#03
	db #61,#03,#19,#09,#61,#02,#19,#03
	db #61,#05,#4b,#03,#4b,#03,#61,#02
	db #19,#06,#61,#03,#19,#06,#61,#05
	db #4b,#03,#4b,#03,#61,#02,#19,#06
	db #61,#04,#4b,#03,#4b,#03,#61,#03
	db #19,#09,#61,#02,#19,#03,#61,#04
	db #4b,#03,#4b,#03,#61,#02,#19,#06
	db #61,#03,#19,#06,#61,#04,#4b,#03
	db #4b,#03,#61,#02,#19,#06,#61,#04
	db #44,#03,#44,#03,#61,#03,#19,#09
	db #61,#02,#19,#03,#61,#04,#44,#03
	db #44,#03,#61,#02,#19,#06,#61,#03
	db #19,#06,#61,#04,#44,#03,#44,#03
	db #61,#02,#19,#06,#61,#04,#44,#03
	db #44,#03,#61,#03,#19,#09,#61,#02
	db #19,#03,#61,#04,#44,#03,#44,#03
	db #61,#02,#19,#06,#61,#03,#19,#06
.lb1e9 equ $ + 7
	db #61,#04,#44,#03,#44,#03,#fe,#61
	db #01,#27,#12,#27,#06,#27,#12,#27
	db #06,#2c,#12,#2c,#06,#2c,#0c,#2c
	db #0c,#25,#12,#25,#06,#25,#12,#25
	db #06,#25,#12,#25,#06,#22,#0c,#25
.lb20c equ $ + 2
	db #0c,#fe,#61,#06,#3f,#10,#60,#08
	db #3f,#09,#42,#09,#44,#06,#46,#0c
	db #44,#06,#42,#12,#46,#0c,#49,#10
	db #60,#10,#60,#10,#60,#10,#60,#10
.lb22d equ $ + 3
	db #60,#10,#fe,#61,#01,#27,#10,#60
	db #10,#60,#10,#27,#0c,#25,#0c,#22
	db #06,#25,#12,#22,#10,#60,#10,#60
	db #10,#60,#06,#22,#06,#22,#0c,#27
.lb24e equ $ + 4
	db #0c,#25,#0c,#fe,#61,#02,#19,#0c
	db #19,#0c,#19,#0c,#19,#0c,#19,#0c
	db #19,#0c,#19,#0c,#19,#0c,#19,#0c
	db #19,#0c,#19,#0c,#19,#0c,#19,#0c
	db #19,#0c,#19,#03,#61,#03,#19,#03
.lb279 equ $ + 7
	db #19,#06,#19,#06,#19,#06,#fe,#61
	db #06,#3f,#10,#60,#08,#42,#09,#46
	db #09,#49,#06,#4b,#0c,#4b,#0c,#fa
	db #03,#ff,#4b,#06,#fa,#00,#00,#4b
	db #06,#49,#06,#49,#10,#60,#10,#60
	db #10,#60,#10,#60,#10,#60,#10,#61
.lb2a6 equ $ + 4
	db #00,#19,#06,#fe,#61,#02,#61,#07
	db #46,#0c,#46,#0c,#61,#08,#46,#06
	db #61,#07,#46,#06,#61,#08,#46,#06
	db #61,#09,#44,#10,#60,#0e,#44,#0c
	db #61,#08,#46,#0c,#61,#07,#46,#06
	db #46,#06,#46,#0c,#61,#08,#46,#06
	db #46,#0c,#61,#09,#44,#10,#60,#0e
	db #61,#08,#46,#0c,#46,#0c,#61,#07
	db #46,#0c,#46,#0c,#61,#08,#46,#06
	db #61,#07,#46,#06,#61,#08,#46,#06
	db #61,#09,#44,#10,#60,#0e,#61,#08
.lb2ff equ $ + 5
	db #46,#10,#60,#08,#fe,#61,#09,#42
	db #12,#61,#0a,#42,#10,#60,#0e,#61
	db #09,#44,#12,#61,#0a,#44,#10,#60
	db #0e,#61,#09,#42,#12,#61,#0a,#42
	db #10,#60,#0e,#61,#09,#44,#0c,#44
	db #0c,#61,#0a,#44,#0c,#61,#09,#44
	db #0c,#42,#12,#61,#0a,#42,#10,#60
	db #0e,#61,#09,#44,#12,#61,#0a,#44
	db #10,#60,#0e,#61,#07,#46,#0c,#46
	db #0c,#61,#08,#46,#0c,#61,#07,#46
	db #10,#60,#10,#60,#10,#60,#0c,#fe
.lb352
	db #61,#02,#61,#01,#27,#0c,#33,#06
	db #27,#0c,#27,#06,#33,#06,#27,#06
	db #20,#0c,#2c,#06,#20,#06,#2c,#06
	db #20,#06,#2c,#06,#20,#06,#27,#0c
	db #33,#06,#27,#0c,#27,#06,#33,#06
	db #27,#06,#20,#0c,#2c,#06,#20,#0c
	db #20,#06,#20,#06,#25,#06,#27,#0c
	db #33,#06,#27,#0c,#27,#06,#33,#06
	db #27,#06,#20,#0c,#2c,#06,#2c,#0c
.lb39f equ $ + 5
	db #2c,#06,#20,#0c,#fe,#61,#02,#61
	db #01,#25,#12,#27,#10,#60,#0e,#24
	db #12,#25,#10,#60,#0e,#25,#12,#27
	db #10,#60,#0e,#24,#0c,#27,#0c,#25
	db #10,#60,#08,#25,#12,#27,#10,#60
	db #0e,#24,#12,#25,#10,#60,#0e,#27
	db #06,#27,#06,#27,#0c,#25,#0c,#27
	db #0c,#61,#03,#19,#06,#19,#06,#19
	db #06,#19,#06,#19,#06,#19,#06,#19
.lb3e6 equ $ + 4
	db #06,#19,#06,#fe,#61,#02,#19,#06
	db #61,#0b,#49,#03,#49,#03,#61,#13
	db #19,#06,#61,#0b,#49,#03,#49,#03
.lb3fb equ $ + 1
	db #fe,#61,#02,#61,#0d,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#fa,#05,#ff
	db #3f,#0c,#fa,#00,#00,#3f,#03,#3d
	db #03,#3f,#12,#60,#0c,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#03,#3d
	db #03,#3f,#03,#3d,#03,#3f,#06,#4b
	db #06,#49,#06,#46,#06,#44,#06,#42
.lb460 equ $ + 6
	db #06,#3f,#06,#3d,#06,#fe,#61,#02
	db #61,#0d,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#fa,#05,#ff,#3f,#0c,#fa
	db #00,#00,#3f,#03,#3d,#03,#3f,#12
	db #60,#0c,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#03,#3d,#03,#3f,#03
	db #3d,#03,#3f,#06,#4b,#06,#3f,#06
	db #4e,#06,#3f,#06,#50,#06,#3f,#06
.lb4c5 equ $ + 3
	db #52,#06,#fe,#61,#01,#27,#10,#60
	db #10,#60,#10,#2c,#10,#60,#10,#60
	db #10,#25,#10,#60,#10,#60,#10,#60
.lb4e0 equ $ + 6
	db #10,#60,#10,#60,#10,#fe,#61,#00
	db #3d,#10,#60,#10,#60,#10,#60,#10
	db #60,#10,#60,#10,#60,#10,#60,#10
	db #60,#10,#60,#10,#60,#10,#60,#10
.lb4fb equ $ + 1
	db #fe,#61,#02,#61,#01,#22,#10,#60
	db #10,#60,#10,#27,#10,#60,#10,#60
	db #10,#2c,#10,#60,#10,#60,#10,#60
.lb518 equ $ + 6
	db #10,#60,#10,#60,#10,#fe,#61,#01
	db #27,#04,#27,#04,#2a,#04,#27,#04
	db #27,#04,#2a,#04,#61,#00,#19,#04
	db #61,#01,#29,#10,#25,#04,#25,#04
	db #25,#04,#25,#04,#26,#04,#27,#04
	db #27,#04,#2a,#04,#27,#04,#27,#04
	db #2a,#04,#61,#00,#19,#04,#61,#01
	db #29,#0c,#27,#08,#25,#08,#22,#08
	db #27,#04,#27,#04,#2a,#04,#27,#04
	db #27,#04,#2a,#04,#61,#00,#19,#04
	db #61,#01,#29,#10,#60,#04,#2c,#08
	db #2e,#08,#33,#04,#31,#04,#2e,#04
	db #31,#04,#2e,#04,#2c,#04,#2a,#08
.lb57f equ $ + 5
	db #27,#0c,#27,#04,#fe,#61,#03,#19
	db #0c,#61,#02,#19,#04,#61,#03,#19
	db #08,#61,#02,#19,#08,#61,#03,#19
	db #08,#61,#02,#19,#04,#19,#04,#61
	db #03,#19,#08,#19,#08,#19,#0c,#61
	db #02,#19,#04,#61,#03,#19,#08,#61
	db #02,#19,#08,#61,#03,#19,#04,#19
	db #04,#19,#02,#19,#02,#19,#04,#19
	db #04,#19,#04,#61,#08,#fa,#00,#fd
	db #3d,#08,#fa,#00,#00,#61,#03,#19
	db #0c,#61,#02,#19,#04,#61,#03,#19
	db #08,#61,#02,#19,#08,#19,#04,#19
	db #04,#61,#03,#19,#08,#61,#02,#19
	db #04,#19,#04,#61,#03,#19,#08,#61
	db #08,#fa,#00,#fd,#3d,#0c,#3d,#0c
	db #3d,#08,#fa,#00,#00,#61,#03,#19
	db #04,#19,#04,#19,#04,#19,#04,#fe
.lb602
	db #61,#02,#19,#06,#61,#0b,#3d,#06
	db #49,#06,#3d,#06,#61,#02,#19,#06
	db #61,#0b,#3d,#06,#3f,#06,#41,#06
	db #61,#02,#19,#06,#61,#0b,#3d,#06
	db #49,#06,#3d,#06,#61,#02,#19,#06
	db #61,#0b,#38,#06,#3a,#06,#38,#06
	db #61,#02,#19,#06,#61,#0b,#3d,#06
	db #49,#06,#3d,#06,#61,#02,#19,#06
	db #61,#0b,#3d,#06,#3f,#06,#41,#06
	db #61,#02,#19,#09,#19,#03,#19,#06
	db #19,#06,#19,#03,#19,#03,#19,#06
	db #61,#08,#fa,#00,#fd,#3d,#0c,#fa
.lb665 equ $ + 3
	db #00,#00,#fe,#61,#02,#61,#01,#25
	db #06,#25,#06,#31,#0c,#61,#03,#19
	db #0c,#61,#02,#61,#01,#31,#06,#25
	db #0c,#25,#06,#31,#0c,#61,#01,#19
	db #0c,#61,#02,#61,#01,#2c,#0c,#25
	db #06,#25,#06,#31,#0c,#61,#03,#19
	db #06,#61,#02,#61,#01,#25,#06,#27
	db #06,#29,#06,#2c,#06,#2c,#06,#27
	db #06,#29,#06,#25,#0c,#61,#03,#19
.lb6ae equ $ + 4
	db #06,#19,#06,#fe,#61,#0a,#44,#06
	db #61,#04,#44,#06,#44,#06,#61,#0a
	db #44,#06,#61,#04,#44,#06,#44,#06
	db #61,#0a,#44,#06,#44,#06,#44,#06
	db #61,#04,#44,#06,#44,#06,#61,#0a
	db #44,#06,#61,#04,#44,#06,#44,#06
	db #61,#09,#44,#0c,#61,#0a,#44,#06
	db #61,#04,#44,#06,#44,#06,#61,#0a
	db #44,#06,#61,#04,#44,#06,#44,#06
	db #61,#0a,#44,#06,#61,#04,#44,#06
	db #61,#0a,#44,#0c,#61,#09,#44,#0c
.lb709 equ $ + 7
	db #42,#0c,#61,#00,#19,#0c,#fe,#61
	db #11,#fa,#00,#ff,#44,#06,#fa,#00
	db #00,#44,#06,#41,#06,#fa,#00,#ff
	db #44,#06,#fa,#00,#00,#44,#06,#41
	db #06,#fa,#00,#ff,#44,#06,#fa,#00
	db #00,#44,#06,#46,#06,#49,#10,#46
	db #06,#44,#06,#fa,#00,#ff,#3f,#06
	db #fa,#00,#00,#3f,#06,#3d,#06,#38
	db #06,#3a,#10,#60,#08,#60,#10,#60
.lb751 equ $ + 7
.lb750 equ $ + 6
	db #10,#60,#10,#60,#10,#fe,#00,#00
.lb752
	db #d6,#bf,#00,#00,#00,#00,#30,#30
.lb761 equ $ + 7
.lb760 equ $ + 6
.lb75f equ $ + 5
.lb75e equ $ + 4
.lb75d equ $ + 3
	db #30,#30,#00,#0f,#00,#00,#00,#00
	db #00
.lb763
	ld a,(lb75f)
	and a
	ld b,a
	ret z
	ld a,(lb761)
	cp #80
	jp z,lb78c
	ld a,(lb760)
	dec a
	ld (lb760),a
	ret nz
	ld a,(lb761)
	ld (lb760),a
	ld a,(lb75d)
	add b
	bit 4,a
	jp nz,lb79b
	ld (lb75d),a
	ret
.lb78c
	ld a,b
	cp #01
	ld a,#0f
	jp z,lb795
	xor a
.lb795
	ld (lb75d),a
	jp lb79b
.lb79b
	xor a
	ld (lb75f),a
	ld a,(lb75e)
	and a
	jp nz,lb93c
	ret
.lb7a7
	ld a,#00
	ld (lb75d),a
	ld a,#01
.lb7ae
	ld (lb75f),a
	inc hl
	ld a,(hl)
	ld (lb761),a
	ld (lb760),a
	inc hl
	ret
.lb7bb
	ld a,#0f
	ld (lb75d),a
	ld a,#ff
	jp lb7ae
.lb7c5
	ld a,h
	push af
	ld c,l
	cp #07
	jp nz,lb7d1
	res 7,c
	res 6,c
.lb7d1
	ld a,#c0
	ld b,#f6
	out (c),a
	ld b,#f4
	pop af
	out (c),a
	ld b,#f6
	ld a,#80
	out (c),a
	ld b,#f4
	out (c),c
	xor a
	ld b,#f6
	out (c),a
	ret
.lb7f3 equ $ + 7
.lb7f2 equ $ + 6
.lb7ed equ $ + 1
.lb7ec
	db #00,#00,#00,#00,#00,#00,#00,#f8
.lb7f9 equ $ + 5
.lb7f7 equ $ + 3
.lb7f6 equ $ + 2
.lb7f5 equ $ + 1
.lb7f4
	db #00,#00,#00,#2d,#b2,#01,#00,#00
	db #00,#05,#00,#08,#01,#ff,#00,#00
	db #00,#01,#08,#00,#00,#04,#00,#00
	db #2d,#b2,#00,#f7,#14,#0a,#01,#00
	db #00,#08,#04,#78,#b0,#01,#72,#b0
	db #00,#0a,#00,#02,#00,#fe,#00,#00
.lb828 equ $ + 4
.lb826 equ $ + 2
.lb824
	db #00,#00,#4e,#b2,#01,#00,#00,#00
	db #01,#01,#02,#01,#ff,#00,#00,#02
	db #03,#09,#00,#00,#01,#00,#00,#4e
	db #b2,#00,#ef,#ff,#ff,#00,#00,#00
	db #00,#00,#95,#b0,#01,#93,#b0,#00
.lb853 equ $ + 7
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb857 equ $ + 3
.lb855 equ $ + 1
	db #00,#20,#b1,#01,#00,#00,#00,#0a
	db #01,#02,#02,#ff,#00,#00,#04,#05
	db #0a,#00,#00,#00,#01,#00,#20,#b1
	db #00,#00,#df,#ff,#ff,#00,#00,#00
	db #00,#c0,#b0,#06,#be,#b0,#00,#00
.lb882 equ $ + 6
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00
;
.real_init_music
.lb889
;
	ld a,#0f
	ld (lb75d),a
	xor a
	ld (lb75f),a
	ld (lb75e),a
	call lb944
	ld a,(lb751)
	cp #ff
	jp nz,lb8a4
	inc a
	ld (lb751),a
.lb8a4
	ld a,#01
	ld (lb7f9),a
	ld (lb828),a
	ld (lb857),a
	xor a
	ld (lb750),a
	push ix
	ld ix,lb7f7
	ld a,(lb751)
	add a
	ld b,a
	add a
	add b
	ld l,a
	ld h,#00
	ld de,lb024
	add hl,de
	ld (lb8d5),hl
	inc hl
	inc hl
	ld (lb8df),hl
	inc hl
	inc hl
	ld (lb8e9),hl
.lb8d5 equ $ + 1
	ld hl,(lb024)
	call lb90e
	ld ix,lb826
.lb8df equ $ + 1
	ld hl,(lb026)
	call lb90e
	ld ix,lb855
.lb8e9 equ $ + 1
	ld hl,(lb028)
	call lb90e
	ld a,#01
	ld (lad67),a
	ld h,#07
	ld l,#f8
	call lb7c5
	ld a,(lb751)
	cp #01
	pop ix
	ret
.lb902	; test player
	halt
	call lb970
	ld a,(lad67)
	and a
	jp nz,lb902
	ret
.lb90e
	ld (ix+#20),l
	ld (ix+#23),l
	ld (ix+#00),l
	ld (ix+#21),h
	ld (ix+#24),h
	ld (ix+#01),h
	call lbe22
	ld (ix+#02),#01
	ld (ix+#0c),#00
	ld (ix+#05),#00
	ld (ix+#04),#00
	ld (ix+#17),#00
	ld (ix+#2b),#00
	ret
.lb93c
	call lb944
	xor a
	ld (lad67),a
	ret
.lb944
	ld h,#07
	ld l,#ff
	call lb7c5
	ld hl,lb7ec
	ld de,lb7ed
	ld bc,#000a
	ld (hl),#00
	ldir
	ld a,#f8
	ld (lb7f3),a
.lb95d
	ld b,#0b
	ld h,#00
	ld de,lb7ec
.lb964
	ld a,(de)
	ld l,a
	push bc
	call lb7c5
	pop bc
	inc h
	inc de
	djnz lb964
	ret
;
.play_music
.lb970
;
	ld a,(lad66)
	and a
	jp z,lb9a8
	ld b,a
	xor a
	ld (lad66),a
	ld a,b
	cp #ff
	jp z,lb93c
	cp #fe
	jp nz,lb9a1
	ld b,#0a
	ld a,#01
	ld (lb75e),a
	call lb994
	jp lb9a8
.lb994
	ld a,#ff
	ld (lb75f),a
	ld a,b
	ld (lb761),a
	ld (lb760),a
	ret
.lb9a1
	dec a
	ld (lb751),a
	jp lb889
.lb9a8
	call lb763
	ld a,(lad67)
	and a
	jr z,lba0a
	push ix
	ld ix,lb7f7
	bit 7,(ix+#0c)
	call z,lba0b
	ld ix,lb826
	bit 7,(ix+#0c)
	call z,lba0b
	ld ix,lb855
	bit 7,(ix+#0c)
	call z,lba0b
	ld a,(lb75d)
	cpl
	and #0f
	ld b,a
	ld a,(lb750)
	and a
	ld a,#10
	jp nz,lb9ec
	ld a,(lb7f4)
	sub b
	jp nc,lb9ec
	xor a
.lb9ec
	ld (lb7f4),a
	ld a,(lb7f5)
	sub b
	jp nc,lb9f7
	xor a
.lb9f7
	ld (lb7f5),a
	ld a,(lb7f6)
	sub b
	jp nc,lba02
	xor a
.lba02
	ld (lb7f6),a
	call lb95d
	pop ix
.lba0a
	ret
.lba0b
	ld a,(ix+#02)
	dec (ix+#02)
	jp z,lbbb2
.lba14
	ld a,(ix+#0c)
	and #03
	jp z,lbad4
	cp #01
	jp z,lba2e
	cp #02
	jp z,lba6e
	cp #03
	jp z,lbab8
	jp lbb05
.lba2e
	ld a,(ix+#0b)
	and a
	jr z,lba3a
	dec (ix+#0b)
	jp lbb05
.lba3a
	ld a,(ix+#04)
	ld b,(ix+#08)
	add b
	ld (ix+#04),a
	ld b,(ix+#05)
	cp b
	jr z,lba5b
	jr nc,lba55
	ld a,(ix+#07)
	ld (ix+#0b),a
	jp lbb05
.lba55
	ld a,(ix+#05)
	ld (ix+#04),a
.lba5b
	ld a,(ix+#0c)
	and #fc
	or #02
	ld (ix+#0c),a
	ld a,(ix+#09)
	ld (ix+#25),a
	jp lbb05
.lba6e
	ld a,(ix+#25)
	and a
	jr z,lba7a
	dec (ix+#25)
	jp lbb05
.lba7a
	ld a,(ix+#04)
	ld b,(ix+#0a)
	add b
	ld (ix+#04),a
	bit 7,a
	jp nz,lba99
	ld b,(ix+#26)
	cp b
	jr z,lbaa6
	jr c,lbaa0
	ld a,(ix+#09)
	ld (ix+#25),a
	jr lbb05
.lba99
	ld (ix+#04),#00
	jp lbaa6
.lbaa0
	ld a,(ix+#26)
	ld (ix+#04),a
.lbaa6
	ld a,(ix+#0c)
	and #fc
	or #03
	ld (ix+#0c),a
	ld a,(ix+#06)
	ld (ix+#27),a
	jr lbb05
.lbab8
	ld a,(ix+#27)
	and a
	jr z,lbac3
	dec (ix+#27)
	jr lbb05
.lbac3
	ld a,(ix+#0c)
	and #fc
	ld (ix+#0c),a
	ld a,(ix+#2a)
	ld (ix+#29),a
	jp lbb05
.lbad4
	ld a,(ix+#29)
	and a
	jr z,lbadf
	dec (ix+#29)
	jr lbb05
.lbadf
	ld a,(ix+#04)
	ld b,(ix+#28)
	add b
	ld (ix+#04),a
	bit 7,a
	jr nz,lbaf5
	ld a,(ix+#2a)
	ld (ix+#29),a
	jr lbb05
.lbaf5
	ld (ix+#04),#00
	ld a,(ix+#0c)
	and #fc
	or #03
	ld (ix+#0c),a
	jr lbb05
.lbb05
	ld a,(ix+#04)
	ld hl,lb7ec
	ld d,#00
	ld e,(ix+#0f)
	add hl,de
	ld (hl),a
	ld h,(ix+#14)
	ld l,(ix+#13)
	ld d,#00
	ld e,(ix+#10)
	add hl,de
	ld a,(ix+#03)
	push af
	ld a,(hl)
	add (ix+#03)
	ld (ix+#03),a
	call lbc49
	pop af
	ld (ix+#03),a
	inc (ix+#10)
	ld a,(ix+#12)
	xor (ix+#10)
	jr nz,lbb41
	ld a,(ix+#11)
	ld (ix+#10),a
.lbb41
	ld a,(ix+#1a)
	cp #ff
	jr z,lbb82
	and a
	jr z,lbb50
	dec (ix+#1a)
	jr nz,lbb82
.lbb50
	dec (ix+#1f)
	jr nz,lbb63
	ld a,(ix+#1e)
	ld (ix+#1f),a
	ld a,(ix+#2e)
	xor #01
	ld (ix+#2e),a
.lbb63
	ld b,#00
	ld c,(ix+#1b)
	ld h,(ix+#1d)
	ld l,(ix+#1c)
	bit 0,(ix+#2e)
	jr z,lbb77
	add hl,bc
	jr lbb79
.lbb77
	sbc hl,bc
.lbb79
	ld (ix+#1d),h
	ld (ix+#1c),l
	call lbb9d
.lbb82
	ld a,(ix+#2b)
	call lbb90
	and a
	call nz,lbb9d
	ld a,(ix+#02)
	ret
.lbb90
	ld l,a
	ld h,#00
	bit 7,a
	ret z
	ld d,h
	ld e,l
	sbc hl,de
	sbc hl,de
	ret
.lbb9d
	ld b,h
	ld c,l
	ld hl,lb7ec
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	dec hl
	ld (hl),e
	ret
.lbbb2
	ld l,(ix+#00)
	ld h,(ix+#01)
.lbbb8
	ld a,(hl)
	cp #60
	jp z,lbc47
	cp #61
	jp z,lbd0c
	cp #62
	jp z,lbcea
	cp #64
	jp z,lbc98
	cp #65
	jp z,lbcdc
	cp #fa
	jp z,lbcaf
	cp #fc
	jp z,lb7a7
	cp #fd
	jp z,lb7bb
	cp #fe
	jp z,lbcee
	cp #ff
	jp z,lbcd4
	ld b,a
	ld a,(ix+#0c)
	and #fc
	or #01
	ld (ix+#0c),a
	ld (ix+#10),#00
	ld (ix+#04),#00
	ld a,b
	sub (ix+#2d)
	ld (ix+#03),a
	ld a,(ix+#19)
	ld (ix+#1a),a
	ld a,(ix+#1e)
	srl a
	ld (ix+#1f),a
	ld (ix+#1d),#00
	ld (ix+#1c),#00
.lbc1b
	inc hl
	ld a,(hl)
	dec a
	push hl
	ld h,#00
	ld l,a
	ld de,(lb752)
	add hl,de
	ld a,(hl)
	pop hl
	inc hl
	ld b,(ix+#2c)
	add b
	ld (ix+#2c),#00
	ld (ix+#02),a
	ld a,(ix+#07)
	ld (ix+#0b),a
	ld (ix+#00),l
	ld (ix+#01),h
	call lbc49
	jp lba14
.lbc47
	jr lbc1b
.lbc49
	ld a,(ix+#17)
	and a
	call nz,lbc8d
	ld a,(ix+#03)
	inc a
	inc a
	add a
	ld d,#00
	ld e,a
	ld hl,lbe86
	add hl,de
	push hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld hl,lb7ec
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld (hl),c
	inc hl
	ld (hl),b
	pop hl
	ld a,(lb750)
	and a
	ret z
	ld a,(ix+#0f)
	cp #08
	ret nz
	ld de,#00c0
	add hl,de
	ex de,hl
	ld h,#0b
	ld a,(de)
	ld l,a
	call lb7c5
	inc de
	inc h
	ld a,(de)
	ld l,a
	call lb7c5
	ret
.lbc8d
	ld a,(ix+#03)
	neg
	and #1f
	ld (lb7f2),a
	ret
.lbc98
	inc hl
	ld a,(hl)
	inc hl
	ld (lb7f2),a
	jp lbd03
.lbca1
	inc hl
	ld a,(hl)
	inc hl
	ld b,a
	xor a
	ld (lb75e),a
	call lb994
	jp lbe28
.lbcaf
	inc hl
	ld (ix+#2e),#01
	ld a,(hl)
	ld (ix+#19),a
	inc hl
	ld a,(hl)
	bit 7,a
	jp z,lbcc5
	neg
	ld (ix+#2e),#00
.lbcc5
	ld (ix+#1b),a
	ld (ix+#1e),#ff
	ld (ix+#1f),#ff
	inc hl
	jp lbd03
.lbcd4
	inc hl
	ld (ix+#04),#00
	jp lbd03
.lbcdc
	inc hl
	ld a,(hl)
	inc hl
	push hl
	ld h,#0d
	ld l,a
	call lb7c5
	pop hl
	jp lbd03
.lbcea
	inc hl
	jp lbd03
.lbcee
	ld a,(ix+#22)
	dec a
	ld (ix+#22),a
	jr nz,lbcfd
	jp lbe14
	jp lbbb8
.lbcfd
	ld l,(ix+#15)
	ld h,(ix+#16)
.lbd03
	ld (ix+#01),h
	ld (ix+#00),l
	jp lbbb8
.lbd0c
	inc hl
	ld a,(hl)
	inc hl
	push hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld b,a
	add a
	ld h,#00
	ld l,a
	add hl,hl
	add hl,hl
	add hl,hl
	add hl,hl
	ld de,lad68
	add hl,de
	ld d,#00
	add b
	ld e,a
	add hl,de
	ld a,(hl)
	ld (ix+#07),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	inc hl
	ld a,(hl)
	ld (ix+#08),a
	inc hl
	ld a,(hl)
	ld (ix+#09),a
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	inc hl
	ld a,(hl)
	ld (ix+#26),a
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld a,(hl)
	ld (ix+#2a),a
	inc hl
	ld a,(hl)
	ld (ix+#28),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
	inc hl
	ld a,(hl)
	ld (ix+#1b),a
	inc hl
	ld a,(hl)
	ld (ix+#1e),a
	inc hl
	ld a,(hl)
	ld (ix+#11),a
	inc hl
	ld a,(hl)
	ld (ix+#12),a
	inc hl
	ld (ix+#14),h
	ld (ix+#13),l
	ld (ix+#10),#00
	ld de,#0010
	add hl,de
	ld a,(hl)
	ld (ix+#17),#00
	and a
	jp z,lbd97
	ld b,a
	or #c0
	ld (lb7f3),a
	ld a,b
	bit 7,a
	jp z,lbd97
	cpl
	and #38
	ld (ix+#17),a
.lbd97
	inc hl
	ld a,(ix+#0f)
	cp #08
	jp nz,lbdb3
	ld a,(hl)
	ld (lb750),a
	and a
	jp z,lbdb3
	inc hl
	inc hl
	ld a,(hl)
	push hl
	ld h,#0d
	ld l,a
	call lb7c5
	pop hl
.lbdb3
	pop hl
	jp lbbb8
.lbdb7
	inc hl
	ld a,(hl)
	inc hl
	push hl
	add a
	add a
	add a
	ld h,#00
	ld l,a
	ld de,lbfd6
	add hl,de
	ld (lb752),hl
	pop hl
	jp lbe28
.lbdcc
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#2c),a
	jp lbe28
.lbdd5
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#2b),a
	jp lbe28
.lbdde
	inc hl
	ld a,(hl)
	sub #0c
	inc hl
	ld (lb824),a
	ld (lb853),a
	ld (lb882),a
	jp lbe28
.lbdef
	inc hl
	ld b,(hl)
	inc hl
	ld a,(ix+#2d)
	add b
	ld (ix+#2d),a
	jp lbe28
	ld (ix+#0c),#ff
	ld (ix+#03),#00
	ld (ix+#04),#00
	inc hl
	ld a,(hl)
	and a
	jp z,lba14
	call lb93c
	jp lba14
.lbe14
	call lbe22
	jp lbbb2
.lbe1a
	pop bc
	jp lb93c
.lbe1e
	pop bc
	jp lb889
.lbe22
	ld l,(ix+#20)
	ld h,(ix+#21)
.lbe28
	ld a,(hl)
	cp #f8
	jp z,lbdcc
	cp #f9
	jp z,lbdd5
	cp #f6
	jp z,lbca1
	cp #fa
	jp z,lbdef
	cp #fb
	jp z,lbdde
	cp #fc
	jp z,lbdb7
	cp #fd
	jp z,lbe1e
	cp #fe
	jr z,lbe7a
	cp #ff
	jr z,lbe1a
	push hl
	ld l,a
	ld h,#00
	add hl,hl
	ld de,lb03c
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#00),e
	ld (ix+#01),d
	ld (ix+#15),e
	ld (ix+#16),d
	pop hl
	inc hl
	ld a,(hl)
	ld (ix+#22),a
	inc hl
	ld (ix+#20),l
	ld (ix+#21),h
	ret
.lbe7a
	ld l,(ix+#23)
	ld h,(ix+#24)
	jr lbe28
.lbe86 equ $ + 4
	db #00,#00,#00,#00,#00,#00
	dw #0e18,#0d4d,#0c8e,#0bda
	dw #0b2f,#0a8f,#09f7,#0968
	dw #08e1,#0861,#07e9,#0777
	dw #070c,#06a7,#0647,#05ed
	dw #0598,#0547,#04fc,#04d4
	dw #0470,#0431,#03f4,#03dc
	dw #0386,#0353,#0324,#02f6
	dw #02cc,#02a4,#027e,#025a
	dw #0238,#0218,#01fa,#01de
	dw #01c3,#01aa,#0192,#017b
	dw #0166,#0152,#013f,#012d
	dw #011c,#010c,#00fd,#00ef
	dw #00e1,#00d5,#00c9,#00be
	dw #00b3,#00a9,#009f,#0096
	dw #008e,#0086,#007f,#0077
	dw #0071,#006a,#0064,#005f
	dw #0059,#0054,#0050,#004b
	dw #0047,#0043,#003f,#003c
	dw #0038,#0035,#0032,#002f
	dw #002d,#002a,#0028,#0026
	dw #0024,#0022,#0020,#001e
	dw #001c,#001b,#0019,#0018
	dw #0016,#0015,#0014,#0013
	dw #0012,#0011,#0010
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #6a,#00,#64,#00,#5e,#00,#5a,#00
	db #54,#00,#4f,#00,#4a,#00,#47,#00
	db #43,#00,#3f,#00,#3b,#00,#38,#00
	db #35,#00,#32,#00,#2f,#00,#2d,#00
	db #2a,#00,#28,#00,#25,#00,#23,#00
	db #21,#00,#20,#00,#1e,#00,#1c,#00
	db #1b,#00,#19,#00,#18,#00,#16,#00
	db #15,#00,#14,#00,#13,#00,#12,#00
	db #11,#00,#10,#00,#0f,#00,#0e,#00
	db #0d,#00,#0c,#00,#0b,#00,#0a,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.lbfd6
	db #02,#04,#06,#08,#0a,#0c,#0e,#10
	db #12,#14,#16,#18,#1a,#1c,#1e,#20
	db #22,#24,#26,#28,#2a,#2c,#2e,#30
	db #32,#34,#36,#38,#3a,#3c,#3e,#40
	
	;org #86d1
	;ld a,#ff
	;ld (#ad66),a
	;ret
	
;ld a,#fe	; decrease volume
;ld (lad66),a
;ld a,#ff	; stop music
;ld (lad66),a
;call play_music
;call play_music
;ld a,#01
;ld (lad67),a
;call play_music
;
.init_music
;
	ld (lb751),a
	jp real_init_music
;
.game_name
	db "Steel Eagle",0
.game_year
	db "1990",0
.game_publisher
	db "Players",0
.music_author
	db "Sonic Grafitti",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
